home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 14 / Developer Source Volume 14 (I-MODE Publications, Inc.)(1999).iso / orinf / apr96 / hoskf102.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  14KB  |  527x597  |  4-bit (12 colors)

Labels: text | electronics | screenshot | number | software | display | font
OCR: radOracle7 Properties ID X Sub ClickO DIM vDatabase AS String DIM vUsername AS String DIM vPassword AS String DIM vConnect AS String DIM vRunConnect AS String Application. Set Cursor ( 1 ) Disconnect any existing session. IF SAMPLE. IsConnected () THEN SAMPLE. Disconnect () Set values for the database logon form and open the modal dialog. frmDatabase. popDatabase. Translation = "Oracle 7 Server=ORACLE:" frmDatabase. popDatabase. Value = "ORACLE: " frmDatabase. OpenModal ( 1 ) ' Open modal Database dialog 1 Retrieve the data supplied in the database logon dialog. Application. Set Cursor ( 1 ) vDatabase = frmDatabase. popDatabase. Value vUsername = frmDatabase. fldUsername. Value vPassword = frmDatabase. fldPassword. Value vConnect = frmDatabase. fldConnect. Value frmDatabase. CloseWindow () ' Close Database dialog externally Force a visual screen refresh. frmMain. ForceUpdate ( ) Build a database connect string from the data supplied. vRunConnect = vDatabase & vUsername & "/" & vPassword & "@" & vConnect SAMPLE. RunConnect = vRunConnect Attempt to manually reconnect the session to the new database server. SAMPLE. Connect ( ) ' If the connection fails, then set the DisConnected button to true. IF NOT SAMPLE. IsConnected () THEN fraDatabase. Value = 0

---